home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / TrSphChk.ray < prev    next >
Text File  |  1999-07-06  |  741b  |  26 lines
  1. Viewpoint(1000, 1.3, -0.1)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Sphere( 70, 0, 0, 0,
  6.   0.2, 0.2, 0.2, ' Ambient.
  7.   0.2, 0.2, 0.2, ' Diffuse.
  8.   20, 0.35,       ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0.9, 0.9, 0.9 ' Tansmission.
  12. )
  13. Checkerboard(20, 20,
  14.   -100, -100, -100, ' Point in corner
  15.   -90, -100, -100,  ' Point in 1st corner of square
  16.   -100, -90, -100,  ' Point in 2nd corner of square
  17.   0.1, 0.1, 0.7,    ' Ambient
  18.   0.1, 0.1, 0.7,    ' Diffuse
  19.   20, 0.35,         ' Specular.
  20.   0, 0, 0,          ' Reflected.
  21.   3, 1, 1.4,        ' TransN, n1, n2.
  22.   0, 0, 0           ' Tansmission.
  23. )
  24.  
  25.  
  26.